|
|
 |
|
|
|
|
21: 'Private mvarpResultset As ADOR.Recordset 'local copy
22: '##ModelId=352AB4DC02EE
23: Private mvarpResultset As ADOR.Recordset 'local copy
24: '##ModelId=352AB4DC035C
25: Private mvarpTblColumns As Object 'local copy
26: '##ModelId=352AB4DC03CA
27: Private mvarpEOF As Boolean 'local copy
28: '##ModelId=352AB4DD008C
29: Private mvarpBOF As Boolean 'local copy
30: 'Private mvarhasBeenChanged As Boolean 'local copy
31: 'Private mvarisBeingEdited As Boolean 'local copy
32: 'Private mvarhasBeenAdded As Boolean 'local copy
33: 'Private mvarChangedByCode As Boolean 'local copy
34: '##ModelId=352AB4DD00FA
35: Private mvarpBookmark As Variant 'local copy
36: '##ModelId=352AB4DD019C
37: Private mvarDBColumn As ADOR.Field 'local copy
38: '##ModelId=352AB4DD0208
39: Public pChangedByCode As Boolean
40: '##ModelId=352AB4DD0276
41: Public mvBookMark As Variant
42: '##ModelId=352AB4DD0320
43: Public pEditFlag As Boolean
44: '##ModelId=352AB4DD038E
45: Public pAddNewFlag As Boolean
46: '##ModelId=352AB4DD03C0
47: Public pDataChanged As Boolean
48: 'local variable(s) to hold property value(s)
49: '##ModelId=352AB4DD03C1
50: Private mvarRSFields As Object 'local copy
51: '##ModelId=352AB4DE0082
52: Public Property Get RSFields() As Object
53: 'used when retrieving value of a property, on the right side of an assignment.
54: 'Syntax: Debug.Print X.RSFields
55: Set mvarRSFields = mvarpResultset.Fields
56: Set RSFields = mvarRSFields
57: End Property
58:
59:
60:
61:
62: '##ModelId=352AB4DE01CC
63: Public Property Set DBColumn(ByVal vData As Object)
64: 'used when assigning an Object to the property, on the left side of a Set statement.
65: 'Syntax: Set x.DBColumn = Form1
66: Set mvarDBColumn = vData
67: End Property
|
|
|
|
|
|